home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / IMAGE.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  92 lines
  1. 10 POKE55,.:POKE56,24:CLR:Q$=CHR$(34):Z$=CHR$(.):V=1:Z=5308:Y$="   [157][157][157]"
  2. 15 PRINT"[147][142]PRESS D FOR DOCS."
  3. 20 PRINT"PRESS C TO CONVERT FILE."
  4. 25 PRINT"PRESS X TO EXIT."
  5. 30 GETA$:IFA$="D"THEN200
  6. 35 IFA$="C"THENPRINT"[147]":GOTO900
  7. 40 IFA$="X"THEN999
  8. 45 GOTO30
  9. 50 PRINT"[142]ONE MOMENT PLEASE..."
  10. 55 PRINT"SKIPPING PAST 168 SECTORS AND"
  11. 60 PRINT"BUFFERING NEXT 189 SECTORS...":SYSZ
  12. 65 PRINT"WRITING 683 SECTORS..."
  13. 70 PRINT"TRACK:":PRINT"SECTOR:[145][145][145]"
  14. 75 FORM=.TO682:PRINT#15,"B-P";9;.:SYSZ+71:GOSUB800
  15. 80 PRINTY$;T:PRINT:PRINTY$;S:PRINT"[145][145][145][145]":PRINT#15,"U2";9;.;T;S:NEXT
  16. 85 CLOSE8:CLOSE15:CLOSE10:CLOSE9:POKE56,160
  17. 90 PRINT"[147]LOAD";Q$;"$";Q$;D:PRINT"[145],":PRINT"LIST";
  18. 95 POKE631,13:POKE632,13:POKE198,2:POKE56334,1:END
  19. 200 PRINT"[147]    [212]HIS PROGRAM WILL CONVERT A 1571"
  20. 205 PRINT"DISK THAT CONTAINS A ";Q$;"[196]64";Q$;" DISK IMAGE"
  21. 210 PRINT"FILE, INTO A 1541 DISK CONTAINING THE"
  22. 215 PRINT"ORIGINAL FILE.  [193] [196]64 FILE IS AN EXACT"
  23. 220 PRINT"COPY OF A 1541 DISK, AND CONTAINS 174848";
  24. 225 PRINT"BYTES (683 SECTORS * 256 BYTES/SECTOR)."
  25. 230 PRINT"[201]T INCLUDES THE DIRECTORY TRACK (TRACK"
  26. 235 PRINT"18), AND ALL UNUSED SECTORS.  [196]64 FILES"
  27. 240 PRINT"ARE USED BY AT LEAST TWO [195]-64 EMULATORS,";
  28. 245 PRINT"INCLUDING [205]IHA [208]ETERNEL'S [195]-64EMULATOR"
  29. 250 PRINT"FOR [205][211]-[196][207][211] COMPUTERS ([195]64[211])."
  30. 255 PRINT"    [212]O USE THIS PROGRAM, YOU MUST PUT"
  31. 260 PRINT"YOUR 1571 INTO 1571 MODE AND DO A FULL"
  32. 265 PRINT"FORMAT.  [196]O THAT BY TYPING IN (IN DIRECT";
  33. 270 PRINT"MODE):"
  34. 275 PRINT"OPEN15,8,15,";Q$;"U0^M1";Q$;" <[210][197][212][213][210][206]>"
  35. 280 PRINT"PRINT#15,";Q$;"N0:NAME,ID";Q$;":CLOSE15 <[210][197][212][213][210][206]>"
  36. 285 PRINT"WHERE THE DISK NAME HAS A MAXIMUM LENGTH";
  37. 290 PRINT"OF 16 CHARACTERS, AND THE DISK ID IS"
  38. 295 PRINT"COMPOSED OF ANY TWO CHARACTERS.  [206]EXT,"
  39. 300 GOSUB897
  40. 305 PRINT"[147]TRANSFER THE [196]64 FILE TO THE DISK, E.G.,";
  41. 310 PRINT"BY DOWNLOADING FROM A HOST OR FROM AN"
  42. 315 PRINT"[205][211]-[196][207][211] COMPUTER (USING A NULL-MODEM"
  43. 320 PRINT"ADAPTER).  [212]HEN, WITH THE DISK IN YOUR"
  44. 325 PRINT"1571, RUN THIS PROGRAM.  [193]FTER 19"
  45. 330 PRINT"MINUTES, YOUR 1541 DISK SHOULD BE READY.";
  46. 335 PRINT"[207]F COURSE, YOU WILL NOT HAVE THE"
  47. 340 PRINT"ORIGINAL FILE (WHICH IS OVERWRITTEN).
  48. 345 [153]"    (null)HIS PROGRAM IS CONTRIBUTED TO THE"
  49. 350 [153]"PUBLIC DOMAIN.            MID$OHN RIGHT$ANNETTA"
  50. 355 [141]897:[137]15
  51. 699 [154]
  52. 700 [132]15,A,B$,C,E
  53. 710 [139]A[177]19[167][153]:[153]A:[153]:[153]B$:[153]:[153]C,E:[153]:[142]
  54. 750 [132]15,A,B$,C,E:[139]A[179]20[176]A[178]62[167][142]
  55. 755 [153]:[153]A:[153]:[153]B$:[153]:[153]C,E:[153]:[142]
  56. 800 K[178]21:R[178].
  57. 805 [139]M[177]375[167]K[178]19:R[178]34
  58. 810 [139]M[177]507[167]K[178]18:R[178]58
  59. 815 [139]M[177]614[167]K[178]17:R[178]88
  60. 820 T[178][181]((M[171]R)[173]K)[170]V:S[178]M[171]R[171]K[172](T[171]V):[142]
  61. 850 [152]15,"M-R";[199](144);[199](2);[199](5)
  62. 855 [161]#15,A$:S[178][198](A$[170]Z$):[161]#15,A$:[161]#15,A$:[161]#15,A$
  63. 860 [161]#15,A$:P[178][198](A$[170]Z$):[142]
  64. 897 [153]"           [(null)(null)VAL(null)(null) (null)VAL(null)(null)(null)(null)]WAIT";
  65. 898 [161]A$:[139]A$[178][199](13)[167][142]
  66. 899 [137]898
  67. 900 [153]"ENTER DEVICE NUMBER OF 1571 DRIVE."
  68. 905 [153]"(ENTER 0 TO EXIT.)"
  69. 910 [153]:[153]"  8ON":[133]D:[139]D[178]0[167]999
  70. 915 [139]D[179]4[176]D[177]30[167][153]"LOADILLEGAL DEVICE NUMBER":[137]900
  71. 920 [151]2,36:[151]184,8:[151]185,0:[151]186,D
  72. 925 [151]183,1:[151]187,2:[151]188,.:[158]65472
  73. 930 [160]8:[139][194](783)[175]1[167][153]"LOAD?DEVICE";D;"CMD NOT PRESENT":[137]900
  74. 935 [129]I[178]4[174]5[164]I[170]21:[151]I,32:[130]:[159]15,D,15:[141]700:[139]A[177]19[167][160]15:[137]900
  75. 940 [152]15,"M-R";[199](192);[199](229)
  76. 945 [161]#15,A$:[139]A$[178]"3"[167]955
  77. 950 [160]15:[153]"LOADNOT A 1571 DRIVE":[137]900
  78. 955 [152]15,"U0^M1":[159]8,D,.,"$$":[153]"LOAD0 ";
  79. 960 [161]#8,A$:[161]#8,A$:[161]#8,A$:[161]#8,A$:[161]#8,A$:[161]#8,A$
  80. 965 [161]#8,A$:[139]A$[167][153]A$;:[137]965
  81. 970 [161]#8,A$:[161]#8,A$:[161]#8,A$:P[178][198](A$[170]Z$):[161]#8,A$
  82. 972 [153]:[153]"CMD";P[170]256[172][198](A$[170]Z$);
  83. 975 [161]#8,A$:[139]A$[167][153]A$;:[137]975
  84. 980 [160]8:[159]8,D,8,":*":[141]750:[139]A[179]20[167]990
  85. 985 [160]8:[160]15:[139]A[178]62[167][153]"LOADNO FILES ON DISK"
  86. 989 [137]900
  87. 990 [141]850:[159]9,D,9,"#":[152]15,"U1";9;.;18;S
  88. 991 [152]15,"B-P";9;P[170]28:[161]#9,A$:P[178][198](A$[170]Z$):[161]#9,A$:P[178]P[170]256[172][198](A$[170]Z$)
  89. 992 [139]P[179]689[167][153]"LOADNOT A D64 FILE":[160]15:[160]8:[160]9:[137]900
  90. 995 [159]10,D,10,":*":[137]50
  91. 999 [151]56,160
  92.